unit EditSMSTemplate;

interface

uses
  Winapi.Windows, Winapi.Messages, SysUtils, Variants, Classes, Graphics,
  Controls, Forms, Dialogs, uniGUITypes, uniGUIAbstractClasses,
  uniGUIClasses, uniGUIForm, DB, uniLabel, jpeg, uniImage, uniPanel, uniButton,
  uniBitBtn, uniGUIBaseClasses, uniMemo, uniDBMemo;

type
  TFrmEditSMSTemplate = class(TUniForm)
    edContent: TUniDBMemo;
    btSave: TUniBitBtn;
    btClose: TUniBitBtn;
    pnTitle: TUniPanel;
    UniImage8: TUniImage;
    lbCaption: TUniLabel;
    lbInfo: TUniLabel;
    dssms: TDataSource;
    UniLabel1: TUniLabel;
    UniLabel2: TUniLabel;
    UniLabel3: TUniLabel;
    UniLabel4: TUniLabel;
    UniPanel1: TUniPanel;
    UniPanel2: TUniPanel;
    UniLabel5: TUniLabel;
    UniLabel6: TUniLabel;
    UniLabel7: TUniLabel;
    UniLabel8: TUniLabel;
    UniLabel9: TUniLabel;
    UniLabel10: TUniLabel;
    UniLabel11: TUniLabel;
    procedure btSaveClick(Sender: TObject);
    procedure btCloseClick(Sender: TObject);
    procedure UniFormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

function FrmEditSMSTemplate: TFrmEditSMSTemplate;

implementation

{$R *.dfm}

uses
  MainModule, uniGUIApplication,BaseModule, uCommFunction;

function FrmEditSMSTemplate: TFrmEditSMSTemplate;
begin
  Result := TFrmEditSMSTemplate(UniMainModule.GetFormInstance(TFrmEditSMSTemplate));
end;

procedure TFrmEditSMSTemplate.btCloseClick(Sender: TObject);
begin
  dmbase.crsTmpSMS.CancelUpdates;
  self.Close;
end;

procedure TFrmEditSMSTemplate.btSaveClick(Sender: TObject);
begin
  dmbase.crsTmpSMS.ApplyUpdates;
  self.Close;
end;

procedure TFrmEditSMSTemplate.UniFormCreate(Sender: TObject);
begin
  SetCompoentLanguage(Self);
end;

end.
